﻿Public Class CasoDeUsoEntity
    Inherits EntityBase

    Public Sub New()
    End Sub

    Public Sub New(ByVal numero As Integer, ByVal titulo As String, ByVal objetivo As String, ByVal descripcion As String, ByVal autor As String, ByVal proyecto As ProyectoEntity, ByVal url As String)
        _numero = numero
        _titulo = titulo
        _objetivo = objetivo
        _descripcion = descripcion
        _autor = autor
        _proyecto = proyecto
        _url = url
    End Sub

    Private _numero As Integer
    Public Property Numero() As Integer
        Get
            Return _numero
        End Get
        Set(ByVal value As Integer)
            _numero = value
        End Set
    End Property

    Private _titulo As String
    Public Property Titulo() As String
        Get
            Return _titulo
        End Get
        Set(ByVal value As String)
            _titulo = value
        End Set
    End Property

    Private _objetivo As String
    Public Property Objetivo() As String
        Get
            Return _objetivo
        End Get
        Set(ByVal value As String)
            _objetivo = value
        End Set
    End Property

    Private _descripcion As String
    Public Property Descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property

    Private _autor As String
    Public Property Autor() As String
        Get
            Return _autor
        End Get
        Set(ByVal value As String)
            _autor = value
        End Set
    End Property

    Private _proyecto As ProyectoEntity
    Public Property Proyecto() As ProyectoEntity
        Get
            Return _proyecto
        End Get
        Set(ByVal value As ProyectoEntity)
            _proyecto = value
        End Set
    End Property

    Private _url As String
    Public Property Url() As String
        Get
            Return _url
        End Get
        Set(ByVal value As String)
            _url = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return Me._numero.ToString + ", " + Me._titulo
    End Function

End Class
